home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Mail / MailEnclosure / Source.v0.15 / info.subproj / InfoController.m < prev    next >
Encoding:
Text File  |  1995-06-12  |  893 b   |  39 lines
  1. #import "InfoController.h"
  2. #import "StringStorage.h"
  3. #import "version.h"
  4.  
  5. @implementation InfoController
  6.  
  7. - init
  8. {
  9.    [super init];
  10.    [self setDocType: "info"];
  11.    return self;
  12. }
  13.  
  14. - awakeFromNib
  15. {
  16.    [versionText setStringValue: version];
  17.    if([maintainerText respondsTo: @selector(setTitle:)])
  18.        [maintainerText setTitle: maintainer];
  19.    else
  20.        [maintainerText setStringValue: maintainer];
  21.    return self;
  22. }
  23.  
  24. - sendComments: sender;
  25. {
  26.    char subject[80];
  27.    id s = [NXApp appSpeaker];
  28.  
  29.    sprintf(subject,"Re: %s %s", [NXApp appName], version);
  30.  
  31.    NXPortFromName("Mail", NULL);         /* make sure app is launched */
  32.    [[NXApp appSpeaker] setSendPort:NXPortFromName("MailSendDemo", NULL)];
  33.    [s performRemoteMethod:"setTo:" with: maintainer length: strlen(maintainer)+1];
  34.    [s performRemoteMethod:"setSubject:" with: subject length: strlen(subject)+1];
  35.    return self;
  36. }
  37.  
  38. @end
  39.